﻿Imports CControl
Imports System.Data

Public Class Frm_Evento_Agregar

    Dim obj_tipo_evento As New Cls_TipoEvento

    Private Sub Window_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
        'cmb_TipoEvento.DataContext = obj_evento.mtd_ListarTipoEvento().Tables("celEVTtTipoEvento")
        'cmb_TipoEvento.ItemsSource = obj_evento.mtd_ListarTipoEvento()
        'cmb_TipoEvento.SelectedValuePath = "EVTid_tipo_evento"
        'cmb_TipoEvento.DisplayMemberPath = "EVTnombre"
        'If (obj_evento.mtd_ListarTipoEvento) Then
        '    MessageBox.Show("Listando")
        'End If
        'cmb_TipoEvento.DisplayMemberPath = "EVTnombre"
        mtd_Llenar_Tipo_Evento()
    End Sub

    Private Sub btn_Agregar_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btn_Agregar.Click
        'Dim _evento As New Cls_Evento()
        '_evento.AgregarCliente()
    End Sub

    Private Sub btn_Salir_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btn_Salir.Click
        Dim _Menu As New Frm_Menu
        _Menu.Show()
        Me.Close()
    End Sub

    Private Sub mtd_Llenar_Tipo_Evento()
        Dim tb_tipo_evento As New DataTable 'variable local para guardar la datatable qe nos retorna la consulta
        Dim datos As New List(Of Cls_TipoEvento)() 'lista donde guardamos los datos de la consulta

        cmb_TipoEvento.Items.Clear() 'limpiamos el combobox
        tb_tipo_evento = obj_tipo_evento.mtd_ListarTipoEvento() 'hacemos boxing de nuesta datatable a la nueva local

        For Each fila As DataRow In tb_tipo_evento.Rows() 'recorremos la nueva datatable
            Dim item As New Cls_TipoEvento 'creamos items de tipo Cls_TipoEvento 
            item.EVTid_tipo_evento = fila.Item(0)
            item.EVTnombre = fila.Item(1)
            datos.Add(item) 'las guardamos en el List: datos
        Next
        cmb_TipoEvento.ItemsSource = datos 'la lista le damos a nuestro combobox para que lea los datos del List        
    End Sub

End Class
